home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_4 / mkwrit57.lha / WRITETES.REX < prev   
OS/2 REXX Batch file  |  1994-05-22  |  2KB  |  77 lines
  1. /* 
  2.  
  3. MkWrite test
  4.  
  5. */
  6.  
  7. say 'Hello, thankyou for yuor intreset in MkWrite,Lets see how it works?'
  8. say ''
  9. if ~exists('rexx:Mkwrite.rexx') then do
  10.     say 'Whopps..,No MkWrite.rexx exists in rexx: please copy it there and run this again'
  11.     say '07'x
  12.     exit(5)
  13. end
  14. say 'Lets edit a letter to send to Mats Kling'
  15. say 'Please leave any comments here'
  16. if ~open(fil,'T:Klingbrev','w') then do
  17.     say 'shit, cannot open T:Klingbrev'
  18.     exit
  19. end
  20. address command 'wait 2'
  21. call writeln(fil,'')
  22. call writeln(fil,'Hello Mats!')
  23. call writeln(fil,'')
  24. call writeln(fil,'I just recived Mkwrite and now runs a test.')
  25. call writeln(fil,'')
  26. call writeln(fil,'I filled this up:')
  27. call writeln(fil,'')
  28. call writeln(fil,'[ ] Whoo , so great')
  29. call writeln(fil,'[ ] Nice thing this is!')
  30. call writeln(fil,'[ ] YEAAHH  Love it!')
  31. call writeln(fil,'[ ] Extremly useful')
  32. call writeln(fil,'')
  33. call writeln(fil,'I send you:')
  34. call writeln(fil,'')
  35. call writeln(fil,'[ ] Amiga 4000')
  36. call writeln(fil,'[ ] $10000')
  37. call writeln(fil,'[ ] DM 100000')
  38. call writeln(fil,'[ ] Amiga 2000  (030 please ;)')
  39. call writeln(fil,'[ ] A netmail')
  40. call writeln(fil,'[ ] A postcard')
  41. call writeln(fil,'')
  42. call writeln(fil,'As a gift for leting me use this..')
  43. call writeln(fil,'')
  44. call writeln(fil,'')
  45. call writeln(fil,'[ ] Please send me a keyfile')
  46. call writeln(fil,'')
  47. call writeln(fil,'I also think:')
  48. call writeln(fil,'')
  49. call writeln(fil,'__________________________')
  50. call writeln(fil,'__________________________')
  51. call writeln(fil,'__________________________')
  52. call writeln(fil,'__________________________')
  53. call writeln(fil,'__________________________')
  54. call writeln(fil,'__________________________')
  55. call writeln(fil,'__________________________')
  56. call writeln(fil,'')
  57. call writeln(fil,'')
  58. call writeln(fil,'Regards.')
  59. call writeln(fil,'_____________ FidoNet___:___/___.___')
  60. call writeln(fil,'')
  61. call writeln(fil,'')
  62. call close(fil)
  63. address command 'ed T:Klingbrev'
  64. say ''
  65. say '<Return>'
  66. parse pull
  67. say ''
  68. say ''
  69. say 'Vhats your name?'
  70. parse pull fran
  71. say 'Yourfidoadress?'
  72. parse pull franadr
  73. say 'sσdΣr jag.. nu skrivs brevet i mail:inbound och nΣsta gσng du tossar sσ skickas det till Mats'
  74. address command 'rx mkwrite -f'fran' -fa'franadr' -tMats Kling -ta2:203/143.0 -aMAIL -sTestar MkWrite -oMkwrite alive at last -teT:Klingbrev'
  75. say ''
  76. address command 'delete >NIL: T:Klingbrev'
  77.